home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 9 / cdrt09.iso / mac / wrath demo / Wrath 50 / Shared.Dir / 01396_Script_1396 < prev    next >
Text File  |  1995-01-13  |  10KB  |  218 lines
  1. -- ò
  2. on SaveGame
  3. global list23c, tune33a, blox43a
  4. global SaveMovie, SavePath
  5. global invList, inv1, inv2, inv3, inv4, invCurrent, jumpFrame
  6. global SaveFrame, mode, hScore, currentGems, currentScore
  7. global invWind, invBank, invBanksAll
  8. global cont, saveGlobal
  9. global firstOr, orCount, o1a, o3a, branch5a, lever5a, fulcrum5a, o5a
  10. global fulcrum11c5a, fulcrum61a5a, gotSword5a, pray6a, snake6a, Peddler6a, o6a
  11. global youngWom7a, oldWom7a, firstTalk7a, firstOldWom7a, necklace7a, o7a, o7a2 
  12. global guys9a, branch9a, o9a, hit10a, o10a, pond11a, o11a, avalanche11c, gem11c
  13. global rock11c, o11c, torchGuy12a, dark12a, o12a, torchGuy14a, hit14a, heads14a
  14. global tHeads14a, o14a, o14a2, o14b, Hera14c, o14c, Peddler15a, rap15a, pedPay15a
  15. global o15a, seedbag16a, seedmen16a, bagSee16a, fight16a, o16a, o16a2, o16b
  16. global o16c, o16c2, o16c3, o17a, hit18b, door18b, o18b, vat18c, oars18c, gem18c, o18c
  17. global upTree19b, downTree19b, o19b, Sciron20a, o20a, across20b, o20b, o20c
  18. global Shade20g, coin20g, o20i, first20j, sledge20j, o20j, o21a, firstTalk23a, King23a
  19. global Queen23a, kingWait23a, o23a, o23a2, first23b, hit23b, gotSword23b
  20. global oneRock23b, twoRock23b, threeRock23b, fourRock23b, fiveRock23b, firstBreak23b
  21. global secondBreak23b, thirdBreak23b, o23b, o23c, lastQt23b, first24a, o24a
  22. global bees26a, o26a, offer27a, o27a, o27a2, o27c, at28a, gem28a, dest28a, play28a
  23. global pilot28a, o28a, o28a2, o28a4, o29a, fly29a, tack30a, crash30a, Prow30a, o30a
  24. global useWax31a, o31a, wine32a, o32a, die33a, do33a, o33a, o33a2, o33b, o34a
  25. global gem35a, firstTalk35a, talk35a, o35a, break35b, o35b, cave35b, drunk38a, o38a
  26. global Peddler38c, rap38c, gem38c, o38c, o39a, in39a, o42a, got43a, o43a
  27. global man44a, skip44a, o44a, Sis45a, rock45a, o45a, slab45b, o45b, Herc46a, o46a
  28. global Pers46b, o46b, talk46c, staff46c, o46c, light47a, o47a, Orpheus48a, o48a
  29. global Theseus49a, o49a, Cerb50a, o50a, atm50b, o50b, slab50c, o50c, o52a, first53a
  30. global hisClub53a, done53a, o53a, first56a, at56a, o56a, first57a, o57a, o59a, helmet60a
  31. global die60a, eye60a, o60a, gem60b, o60b, bridle60e, o60e, rock61a, wine61a, ointment61a
  32. global chart61a, gem61a, o61a, o61a2, swim65a, o65a, talk66a, o66a, stix66b, o66b
  33. global bird66d, vase66d, o66d, o66e, candle67a, o67a, door68a, o68a, leap68b, skip68b
  34. global o68b, vases68c, o68c, Ariadne69a, talk69a, rude69a, o69a, vases70a, o70a, o70b
  35. global Dione70d, o70d, o71a, at74a, door74a, o74a, o74b, Atlas76a, o76a, Peg78a, o78a
  36. global o78b, sandals78d, o78d, blast81a, o81a, Pan83a, o83a, o83b, Ped84a, o84a
  37. global o85a, reeds85c, string85c, o85c, Argus86a, o86a, Caeneus87a, o87a, Hera87b
  38. global o87b, o87c, o88a, o89a, hit90a, lab90a, gotTack30a, o90a, doom30a, o68a2, add28a, razz76a
  39. global noGem32a, eat89a, altGlobal, playFrom, atOr, onOr, hintCount, invOff, Bri, end0
  40.     cursor 4
  41.     doSound "06AA02"
  42.     set SaveFrame to the frame
  43.     set SaveMovie to the movie
  44.     set SavePath to the PathName
  45. repeat with c = 1 to the number of items in saveGlobal
  46.     put return&value(item c of saveGlobal) after tempSave
  47. end repeat
  48. delete line 1 of tempSave 
  49. set savedFile = FileIO(mNew,"?Write","Wrath of the Gods 1")
  50. if not objectP(savedFile) then
  51.     set theProblem = string(savedFile)
  52.     if theProblem = -43 then
  53.         cursor 200
  54.         cursor 0
  55.         updateStage
  56.         exit
  57.     else
  58.         alert "Sorry, save did not work.  Be sure to save to an unlocked volume."
  59.         cursor 200
  60.         cursor 0
  61.         updateStage
  62.         exit
  63.     end if
  64. end if
  65. put "* Wrath of the Gods Saved Game Aardvark"&return before tempSave
  66. savedFile(mWriteString,string(tempSave))
  67. savedFile(mSetFinderInfo, "TEXT","LUMI")
  68. savedFile(mDispose)
  69.  
  70. --
  71. on LoadGame
  72. global list23c, tune33a, blox43a
  73. global SaveMovie, SavePath
  74. global invList, inv1, inv2, inv3, inv4, invCurrent, jumpFrame
  75. global SaveFrame, mode, hScore, currentGems, currentScore
  76. global invWind, invBank, invBanksAll
  77. global cont, saveGlobal
  78. global firstOr, orCount, o1a, o3a, branch5a, lever5a, fulcrum5a, o5a
  79. global fulcrum11c5a, fulcrum61a5a, gotSword5a, pray6a, snake6a, Peddler6a, o6a
  80. global youngWom7a, oldWom7a, firstTalk7a, firstOldWom7a, necklace7a, o7a, o7a2 
  81. global guys9a, branch9a, o9a, hit10a, o10a, pond11a, o11a, avalanche11c, gem11c
  82. global rock11c, o11c, torchGuy12a, dark12a, o12a, torchGuy14a, hit14a, heads14a
  83. global tHeads14a, o14a, o14a2, o14b, Hera14c, o14c, Peddler15a, rap15a, pedPay15a
  84. global o15a, seedbag16a, seedmen16a, bagSee16a, fight16a, o16a, o16a2, o16b
  85. global o16c, o16c2, o16c3, o17a, hit18b, door18b, o18b, vat18c, oars18c, gem18c, o18c
  86. global upTree19b, downTree19b, o19b, Sciron20a, o20a, across20b, o20b, o20c
  87. global Shade20g, coin20g, o20i, first20j, sledge20j, o20j, o21a, firstTalk23a, King23a
  88. global Queen23a, kingWait23a, o23a, o23a2, first23b, hit23b, gotSword23b
  89. global oneRock23b, twoRock23b, threeRock23b, fourRock23b, fiveRock23b, firstBreak23b
  90. global secondBreak23b, thirdBreak23b, o23b, o23c, lastQt23b, first24a, o24a
  91. global bees26a, o26a, offer27a, o27a, o27a2, o27c, at28a, gem28a, dest28a, play28a
  92. global pilot28a, o28a, o28a2, o28a4, o29a, fly29a, tack30a, crash30a, Prow30a, o30a
  93. global useWax31a, o31a, wine32a, o32a, die33a, do33a, o33a, o33a2, o33b, o34a
  94. global gem35a, firstTalk35a, talk35a, o35a, break35b, o35b, cave35b, drunk38a, o38a
  95. global Peddler38c, rap38c, gem38c, o38c, o39a, in39a, o42a, got43a, o43a
  96. global man44a, skip44a, o44a, Sis45a, rock45a, o45a, slab45b, o45b, Herc46a, o46a
  97. global Pers46b, o46b, talk46c, staff46c, o46c, light47a, o47a, Orpheus48a, o48a
  98. global Theseus49a, o49a, Cerb50a, o50a, atm50b, o50b, slab50c, o50c, o52a, first53a
  99. global hisClub53a, done53a, o53a, first56a, at56a, o56a, first57a, o57a, o59a, helmet60a
  100. global die60a, eye60a, o60a, gem60b, o60b, bridle60e, o60e, rock61a, wine61a, ointment61a
  101. global chart61a, gem61a, o61a, o61a2, swim65a, o65a, talk66a, o66a, stix66b, o66b
  102. global bird66d, vase66d, o66d, o66e, candle67a, o67a, door68a, o68a, leap68b, skip68b
  103. global o68b, vases68c, o68c, Ariadne69a, talk69a, rude69a, o69a, vases70a, o70a, o70b
  104. global Dione70d, o70d, o71a, at74a, door74a, o74a, o74b, Atlas76a, o76a, Peg78a, o78a
  105. global o78b, sandals78d, o78d, blast81a, o81a, Pan83a, o83a, o83b, Ped84a, o84a
  106. global o85a, reeds85c, string85c, o85c, Argus86a, o86a, Caeneus87a, o87a, Hera87b
  107. global o87b, o87c, o88a, o89a, hit90a, lab90a, gotTack30a, o90a, doom30a, o68a2, add28a, razz76a
  108. global noGem32a, eat89a, altGlobal, playFrom, atOr, onOr, hintCount, invOff, Bri, end0
  109. sound stop 1
  110. sound stop 2 
  111. set savedFile = FileIO(mNew,"?Read","TEXT")
  112. if not objectP(savedFile) then
  113.     set theProblem = string(savedFile)
  114.     if theProblem = -43 then
  115.         if mode = 5 or mode = 10 then
  116.             cursor 200
  117.             cursor 0
  118.             updateStage
  119.             exit
  120.         else
  121.             set mode = 0
  122.             if altglobal = 1 then
  123.                 set the castNum of sprite 24 to the number of cast "control10"
  124.             else if altglobal = 2 then
  125.                 set the castNum of sprite 24 to the number of cast "control20"
  126.             else
  127.                 set the castNum of sprite 24 to the number of cast "control0"
  128.             end if
  129.             cursor 200
  130.             cursor 500
  131.             if invWind = 1 then
  132.                 killInventory
  133.             end if
  134.             updateStage
  135.             continue
  136.             go value(playFrom)
  137.             exit
  138.         end if
  139.     else
  140.         alert "Sorry, load did not work."
  141.         if mode = 5 or mode = 10 then
  142.             cursor 200
  143.             cursor 0
  144.             updateStage
  145.             exit
  146.         else
  147.             set mode = 0
  148.             if altglobal = 1 then
  149.                 set the castNum of sprite 24 to the number of cast "control10"
  150.             else if altglobal = 2 then
  151.                 set the castNum of sprite 24 to the number of cast "control20"
  152.             else
  153.                 set the castNum of sprite 24 to the number of cast "control0"
  154.             end if
  155.             cursor 200
  156.             cursor 500
  157.             if invWind = 1 then
  158.                 killInventory
  159.             end if
  160.             updateStage
  161.             continue
  162.             go value(playFrom)
  163.             exit
  164.         end if
  165.     end if
  166. end if
  167. cursor 4
  168. updateStage
  169. put savedFile(mReadLine) into holdBin
  170. if holdBin starts "* Wrath of the Gods Saved Game Aardvark" then
  171.     put savedFile(mReadFile) after holdBin
  172.     put saveGlobal into saveDispose
  173.     delete line 1 of holdBin
  174.     repeat with c = 1 to 12
  175.         put "set"&&(item 1 of saveDispose)&&"= " into doThing
  176.         put QUOTE&line 1 of holdBin"E after doThing
  177.         do string(doThing)
  178.         delete item 1 of saveDispose
  179.         delete line 1 of holdBin
  180.     end repeat
  181.     set loopCount = the number of items in saveDispose
  182.     repeat with c = 1 to loopCount
  183.         put "put value("&line 1 of holdBin&") into"&&(item 1 of saveDispose) into doThing
  184.         do string(doThing)
  185.         delete item 1 of saveDispose
  186.         delete line 1 of holdBin
  187.     end repeat
  188.     set the text of cast "scoreRap" to string(currentScore)
  189.     doSound "loadGame"
  190.     if (mode > 4) and (mode <> 10) then
  191.         go "setUp2" of movie savePath&saveMovie
  192.     else  
  193.         go "setUp" of movie savePath&saveMovie
  194.     end if
  195.     savedFile(mDispose)
  196.     exit
  197. else
  198.     alert "This is not a proper Wrath of the Gods Game File."
  199.     savedFile(mDispose)
  200.     if mode = 5 or mode = 10 then
  201.         cursor 200    
  202.         cursor 0
  203.         updateStage
  204.         exit
  205.     else
  206.         set mode = 0
  207.         set the castNum of sprite 24 to the number of cast "control0"
  208.         cursor 200
  209.         cursor 500
  210.         if invWind = 1 then
  211.             killInventory
  212.         end if
  213.         updateStage
  214.         continue
  215.         go value(playFrom)
  216.         exit
  217.     end if
  218. end if